The Ultimate Frank Lloyd…ght - America's Architect/Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso/pre/flw/flwmm.dir/00062_Script_62

Text File | 1994-11-15 | 7KB | 268 lines

on startMovie
  global lastUp, nextUp, lastMovie, reEntry, FrankNav, bFlag
  global nowFrame, lastFrame, nowMovie, currMM, beenToHM
  global dialogOn, mac, lastRoll, lastCast, doneInit
  global glossDialog
  global ltQT

  set ltQT = FALSE
  set lastRoll = 0
  set lastCast = ""
  set glossdialog = the number of cast "glossDialog"
  set dialogOn = FALSE
  set lastFrame = "mmmai000000f°°"
  set lastMovie = "FLWMM"
  set currMM = "FLWMM"
  set nowFrame = "mmmai000000f°°"
  if doneInit <> TRUE then
    initGlobals
  end if
  global btnsuccess
  set btnsuccess = FALSE
  --set the exitLock = FALSE
  --- for seeAlso DLL ---------

  global seeAlsoObj,seeAlsoFlag
  set the textFont of field "seeAlsoText" to "Helvetica"
  --seeAlsoFlag will be set to FALSE in the FLWTOP
  if mac <> TRUE then
    if (seeAlsoFlag = FALSE) then
      openXlib "LINKS"
      if objectP(seeAlsoObj) then
        seeAlsoObj(mDispose)
      end if
      set seeAlsoObj = LINKS(mNew)
      seeAlsoObj(minitialize)
      set seeAlsoFlag to TRUE
    end if
  end if
  -------------------------------


end startMovie

on initGlobals
  global doneInit
  global b1Up, b2Up, b3Up, b4Up, b5Up, b6Up, nullUp
  global b1Dn, b2Dn, b3Dn, b4Dn, b5Dn, b6Dn, nullDn, bRest
  set b1Up = the number of cast "btn1up"
  set b2Up = b1up + 8
  set b3Up = b1up + 16
  set b4Up = b1up + 24
  set b5Up = b1up + 32
  set b6Up = b1up + 40
  set b1Dn = the number of cast "btn1down"
  set b2Dn = b1Dn + 8
  set b3Dn = b1Dn + 16
  set b4Dn = b1Dn + 24
  set b5Dn = b1Dn + 32
  set b6Dn = b1Dn + 40
  set bRest = the number of cast "btnRest"

  set nullUp = the number of cast "nullBtn"
  set nullDn = the number of cast "nullBtn"

  global swapSpnum

  global philX, siteX, patX, matX, typeX
  global philDx, siteDx, patDx, matDx, typeDx
  global phiint,org, tec, dem, uni, bal, ref, lig, tru
  global sitint,fla,hil, mou
  global patint,geo, col,sou,mus,cul,nat
  global matint,woo,sto,gla, bri,cop,con,rei
  global typint,atr, hea, tow

  set swapSpnum  = 15
  set phiint = "22,120,177,190"
  set org = "22,119,219,246"
  set tec = "22,119,250,269"
  set dem = "22,119,276,294"
  set uni = "22,119,302,319"
  set bal = "22,119,328,344"
  set ref = "22,119,354,372"
  set lig = "22,119,380,396"
  set tru = "22,119,401,431"
  set sitint = "143,244,203,217"
  set fla = "142,229,255,272"
  set hil = "142,229,304,320"
  set mou = "142,229,353,369"
  set patint = "269,369,154,168"
  set geo = "268,362,182,197"
  set col = "268,362,224,241"
  set sou = "228,362,266,283"
  set mus = "228,362,312,329"
  set cul = "228,362,338,353"
  set nat = "228,362,364,381"
  set matint = "394,498,144,158"
  set woo = "392,484,187,204"
  set sto = "392,484,217,243"
  set gla = "392,484,247,263"
  set bri = "392,484,278,293"
  set cop = "392,484,303,331"
  set con = "392,484,334,360"
  set rei = "392,484,364,391"
  set typint = "523,629,162,176"
  set atr = "521,591,207,225"
  set hea = "521,591,259,276"
  set tow = "521,591,311,328"


  set doneInit to TRUE
end initGLobals

on seUnpup

  puppetSprite 3, FALSE

  repeat with i = 10 to 14
    puppetSprite i, FALSE
  end repeat
end seUnpup

on Unpup
  repeat with i = 1 to 24
    puppetSprite i, FALSE
  end repeat
end Unpup

on mmrollCheck
  global HMObj,HMOpenFlag

  set the castNum of sprite 7 to 33
  set the castNum of sprite 8 to 37
  set the castNum of sprite 9 to 40
  set the castNum of sprite 10 to 43
  set the castNum of sprite 11 to 46
  set the castNum of sprite 12 to 49
  set the castNum of sprite 6 to 4

  if rollOver(7) then
    set the castNum of sprite 7 to 34
    set the castNum of sprite 6 to 19
    if the mouseDown then
      set the castNum of sprite 7 to 32
    end if

  else if rollOver(8) then
    set the castNum of sprite 8 to 38
    set the castNum of sprite 6 to 21
    if the mouseDown then
      set the castNum of sprite 8 to 36
    end if

  else if rollOver(9) then
    set the castNum of sprite 9 to 41
    set the castNum of sprite 6 to 17
    if the mouseDown then
      set the castNum of sprite 9 to 39
    end if

  else if rollOver(10) then
    set the castNum of sprite 10 to 44
    set the castNum of sprite 6 to 15
    if the mouseDown then
      set the castNum of sprite 10 to 42
    end if

  else if rollOver(11) then
    set the castNum of sprite 11 to 47
    set the castNum of sprite 6 to 20
    if the mouseDown then
      set the castNum of sprite 11 to 45
    end if

  else if rollOver(12) then
    set the castNum of sprite 12 to 50
    set the castNum of sprite 6 to 18
    if the mouseDown then
      set the castNum of sprite 12 to 48
    end if
  end if

  updateStage

end mmrollCheck

on mmsetPuppet
  repeat with i = 6 to 16
    puppetSprite i, TRUE
  end repeat
end mmsetPuppet

on mmhelpCheck
  global lastRoll,lastCast

  if rollover(13) then
    if lastRoll <> 0 then
      set the castNum of sprite lastRoll to the number of cast lastCast
    end if
    set lastCast = "mm3Rt"
    set lastRoll = 13
    set the castNum of sprite 13 to the number of cast "mm3Up"
    set the castNum of sprite 16 to the number of cast "help"
    if the mouseDown then
      set the castNum of sprite 13 to the number of cast "mm3Dn"
    end if
  else if rollover(14)  then
    if lastRoll <> 0 then
      set the castNum of sprite lastRoll to the number of cast lastCast
    end if
    set lastCast = "mm2Rt"
    set lastRoll = 14
    set the castNum of sprite 16 to the number of cast "index"
    set the castNum of sprite 14 to the number of cast "mm2Up"
    if the mouseDown then
      set the castNum of sprite 14 to the number of cast "mm2Dn"
    end if
  else if rollover(15)  then
    if lastRoll <> 0 then
      set the castNum of sprite lastRoll to the number of cast lastCast
    end if
    set lastCast = "mm1Rt"
    set lastRoll = 15
    set the castNum of sprite 15 to the number of cast "mm1Up"
    set the castNum of sprite 16 to the number of cast "quit"
    if the mouseDown then
      set the castNum of sprite 15 to the number of cast "mm1Dn"
    end if
  else
    set the castNum of sprite lastRoll to the number of cast lastCast
    set the castNum of sprite 16 to the number of cast A13
    set lastRoll = 0
  end if

  updateStage
end mmhelpCheck

on goWhere
  global helpMov, seeAlsoFlag

  if the clickOn = 13 then
    updateStage
    set seeAlsoFlag to TRUE
    unloadCast
    go to movie "FLWHI"
  else if the clickOn = 14 then
    updateStage
    set seeAlsoFlag to TRUE
    unloadCast
    go to frame "hi001indiii°°°" of movie "FLWHI"
  else if the clickOn = 15 then
    set seeAlsoFlag to TRUE
    updateStage
    set helpMov = 0
    unloadCast
    go to frame "hi000quit00n°°" of movie "FLWHI"
  end if
end goWhere

on buttonState
  global bFlag
  if (the mouseV > 200) or ( bFlag = TRUE) then
    doState
  end if
end buttonState